home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtil-PCSide.lha / ATUtilities-PCSide / basic / sertest.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-07  |  128 b   |  9 lines
  1. $include "regnames.inc"
  2.  
  3. reg %ax,&H0400
  4. reg %bx,&H0200
  5. reg %cx,(3*256)+8
  6. reg %dx,4
  7. call interrupt &H14
  8. ?hex$(reg(%ax))
  9.